home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / misc / ClipWatch.lha / ClipWatch / Sources / ClipWatch.c < prev    next >
C/C++ Source or Header  |  2000-12-29  |  52KB  |  1,925 lines
  1. /*
  2.      CLIPWATCH
  3.      LECTURE DES INFORMATIONS DES TELETRANS CLIP / FORCE (Constructeur WIT)
  4.      http://www.wit.fr
  5.  
  6.      Marc Le Douarain , Décembre 1998
  7.      mavati@club-internet.fr
  8.      http://perso.club-internet.fr/mavati
  9.      http://www.multimania.com/mavati
  10.      "Conçu" (sur papier) en partie à la résidence des jeunes, St Nazaire.
  11.  
  12.      Dernière mise à jour : 29 décembre 2000
  13.  
  14.  
  15.  Note : modifs à faire dans ClipWatch_gui.c après génération par MUIBuilder
  16.    -Ligne 10 : NON!!!!!!!//#include "ClipWatch_GuiExtern.h"
  17.    -Ligne 307: Object->ListEtats    =>   MUIA_List_Title,TRUE,
  18.    -Ligne 324: Object->ListJournal  =>   MUIA_List_Title,TRUE,
  19.    -Ligne 829: Object->App          =>   MUIA_Application_Version, "$VER:ClipW..... _DATE,
  20.    -Ligne 873: 'MUIV_EveryTime'     =>   2      (Page 2, pour l'Object->ListJournal)
  21.    -Ligne 880: 'MUIV_EveryTime'     =>   1      (Page 1, pour l'Object->ListEtats)
  22.    -Ligne 447: rajouter :    Child, Object->GraphTrace,
  23.    -Ligne 435: rajouter :  Object->GraphTrace = NewObject(mccgraph->mcc_Class,NULL,
  24.                                TextFrame,
  25.                                MUIA_Background, MUII_BACKGROUND,
  26.                                TAG_DONE),
  27.   Rajouter une ligne avec   APTR GraphTrace   dans ClipWatch_gui.h
  28.  
  29.  
  30. */
  31.  
  32. /* Generate the MUI Graphical User Interface */
  33. /* (stdio is faster for tests...!) */
  34. #define GENERATE_GUI
  35.  
  36. /* We are under developpement... */
  37. // #define DEBUG
  38.  
  39. #include <exec/types.h>
  40. #include <devices/serial.h>
  41. #include <dos/dos.h>
  42. #include <stdio.h>
  43. #include <stdlib.h>
  44. #include <string.h>
  45. #include <time.h>
  46. #include <clib/alib_protos.h>
  47. #include <clib/dos_protos.h>
  48. #include <clib/exec_protos.h>
  49. #include <clib/intuition_protos.h>
  50.  
  51.  
  52.  
  53. #define VERSION "0.8.2"
  54. #define COMPILATION_DATE __DATE__
  55.  
  56. #include "trsii.h"
  57. #ifdef GENERATE_GUI
  58. #include "MUI_demo.h"
  59. #endif
  60.  
  61. int TeletransOnLine=FALSE;
  62. int TeletransOnCall=FALSE;
  63. struct InfosTeletrans Teletrans;
  64. struct Ressources * Ress;
  65. int RefreshType;
  66. int RefreshParam;
  67. char * MessagesBox[NBR_MESSAGESBOX];
  68. char * MessagesBoxMemZone;
  69. struct Traces Tra[NBR_TRACES];
  70. char * TabLibellesTraces[NBR_TRACES]; /* Only for the init of the cycle gadget of MUI */
  71. struct Evenements * Jrnl;
  72. int JrnlTaille=0;
  73. char Even_Journal[256];
  74. long NumLastEven_Journal;
  75. char Param_Trace[256];
  76. char DateLastEven_Journal[20];
  77. struct Str_AffiTraceGraph TraceGraph;
  78. //time_t * TraHorodates=NULL;
  79. //double * TraValeurs=NULL;
  80. //long TraNbrSamples=0;
  81. //time_t TraTime32Deb,TraTime32Fin;
  82. struct Str_AffiGraphGene AffiGraphGene;
  83.  
  84. long MoniteurMode=1;
  85. #ifndef DEBUG
  86. long MoniteurActif=FALSE;
  87. long RecupDesMessages=TRUE;
  88. #else
  89. long MoniteurActif=TRUE;
  90. long RecupDesMessages=FALSE;
  91. #endif
  92. long RecupDuJournal=FALSE; 
  93. long RecupDesTraces=TRUE;
  94. char * ListeSitesConnus=NULL;
  95.  
  96. char * TrameRecue;
  97.  
  98. char SerialDevice[50]="serial.device";
  99. int SerialUnit=0;
  100. int SerialSpeed=1200;
  101.  
  102. int SerialInitOk=FALSE;    /* Flag set if the serial device is open. */
  103.  
  104. struct MsgPort *SerialMP = NULL;    /* Port for replies to io messages to go to. */
  105. struct IOExtSer *SerialIO = NULL;    /* Data structure used for messages to device. */
  106. struct IOExtSer *IncomingIO = NULL;    /* Structure for incoming characters. */
  107.  
  108. /* with GCC without libnix (-noixemul) */
  109. struct Library *IntuitionBase = NULL;
  110. struct Library *GfxBase = NULL;
  111. struct Library *UtilityBase = NULL;
  112.  
  113. #ifdef GENERATE_GUI
  114. struct ObjApp * App = NULL;
  115. static APTR WI_AboutMUI;
  116. struct MUI_CustomClass *mccgraph;
  117. #endif
  118.  
  119. void ErrorMessageRequest(char *string);
  120. void DisplayStatus(char *string);
  121. void convert_long_to_asciidate(time_t tps,char * ch,char * ch_time);
  122.  
  123. #ifdef GENERATE_GUI
  124. #include "GraphClass.c"
  125. #include "ClipWatch_Gui.c"
  126. #endif
  127.  
  128. #include "strings.c"
  129. #include "serial-modem.c"
  130. #include "trsii.c"
  131. #include "misc.c"
  132.  
  133.  
  134.  
  135. void DisplayStatus(char *string)
  136. {
  137.  #ifndef GENERATE_GUI
  138.  printf("%s\n",string);
  139.  #else
  140.  set(App->ComState,MUIA_Text_Contents,string);
  141.  #endif
  142. }
  143.  
  144. void ErrorMessageRequest(char *string)
  145. {
  146.  #ifndef GENERATE_GUI
  147.  printf("%s\n",string);
  148.  #else
  149.  MUI_Request(App->App, App->WI_Main, 0, NULL, "OK", string);
  150.  DisplayStatus(""); 
  151.  #endif
  152. }
  153.  
  154. /* ################################################ */
  155. /* Ajout d'un événement dans le Journal (structure) */
  156. /* ################################################ */
  157. int AddEvenInJrnl(char * Even,int RefreshList)
  158. {
  159.  char * EvenOffset;
  160.  int Ok=FALSE;
  161.  int i;
  162.  int NewMemAlloc=FALSE;
  163. // long ActiveEntryInJrnl;
  164.  
  165.  JrnlTaille++;
  166.  // On alloue 100 evens par 100 evens pour limiter le nbr de reconstruction de la liste...
  167.  if ( (((JrnlTaille-1)%100)==0) || (Jrnl==NULL) )
  168.  {
  169.   Jrnl=(struct Evenements *)realloc(Jrnl,(JrnlTaille+100)*sizeof(struct Evenements));
  170.   if (Jrnl==NULL)
  171.   {
  172.    ErrorMessageRequest("Could not alloc enough memory (for evenements)");
  173.    Appli_CloseAll();
  174.    exit(30);
  175.   }
  176.   else
  177.   {
  178.    NewMemAlloc=TRUE;
  179.   }
  180.  }
  181.  if (Jrnl)
  182.  {
  183.   strcpy_termnotnull(Jrnl[JrnlTaille-1].Index,Even,9,0);
  184.   sprintf(Jrnl[JrnlTaille-1].Date,"%c%c/%c%c/%c%c%c%c %c%c:%c%c:%c%c",Even[11],Even[12],Even[9],Even[10],Even[5],Even[6],Even[7],Even[8],Even[13],Even[14],Even[15],Even[16],Even[17],Even[18]);
  185.   EvenOffset=str_field(Even,128,5,9);
  186.   if (EvenOffset)
  187.    strcpy_termnotnull(Jrnl[JrnlTaille-1].NumRess,EvenOffset,9,0);
  188.   EvenOffset=str_field(Even,128,6,9);
  189.   if (EvenOffset)
  190.    strcpy_termnotnull(Jrnl[JrnlTaille-1].LibelleRess,EvenOffset,9,0);
  191.   EvenOffset=str_field(Even,128,8,9);
  192.   if (EvenOffset)
  193.    strcpy_termnotnull(Jrnl[JrnlTaille-1].EtatRess,EvenOffset,9,0);
  194.   EvenOffset=str_field(Even,128,9,9);
  195.   if (EvenOffset)
  196.   {
  197.    Jrnl[JrnlTaille-1].Classe[0]=EvenOffset[1];
  198.    Jrnl[JrnlTaille-1].Classe[1]='\0';
  199.    Jrnl[JrnlTaille-1].Zone[0]=EvenOffset[4];
  200.    Jrnl[JrnlTaille-1].Zone[1]='\0';
  201.    Jrnl[JrnlTaille-1].Code[0]=EvenOffset[7];
  202.    Jrnl[JrnlTaille-1].Code[1]='\0';
  203.    Ok=TRUE;
  204.    #ifdef GENERATE_GUI
  205.    if (NewMemAlloc)
  206.    {
  207.     /* Comme il y a eu un REALLOC, il faut tout recréer la liste : pointeurs vers
  208.        chaines plus valides */
  209. //    get(App->ListJournal,MUIA_List_Active,&ActiveEntryInJrnl);
  210.     if (RefreshList)
  211.      set(App->ListJournal,MUIA_List_Quiet,TRUE);
  212.     DoMethod(App->ListJournal,MUIM_List_Clear);
  213.     for(i=0;i<JrnlTaille;i++)
  214.     {
  215.      DoMethod(App->ListJournal,MUIM_List_InsertSingle,&Jrnl[i],MUIV_List_Insert_Bottom);
  216.     }
  217.     if (RefreshList)
  218.      set(App->ListJournal,MUIA_List_Quiet,FALSE);
  219. //    if (ActiveEntryInJrnl>-1)
  220. //    set(App->ListJournal,MUIA_List_Active,ActiveEntryInJrnl);
  221.    }
  222.    else
  223.    {
  224.     DoMethod(App->ListJournal,MUIM_List_InsertSingle,&Jrnl[JrnlTaille-1],MUIV_List_Insert_Bottom);
  225.    }
  226.    if (RefreshList)
  227.     set(App->ListJournal,MUIA_List_Active,MUIV_List_Active_Bottom);
  228.    #endif
  229.   }
  230.  }
  231.  return Ok;
  232. }
  233.  
  234. /* ######################################################################### */
  235. /* Génération du gadget MUI Cycle, contenant la liste des traces disponibles */
  236. /* ######################################################################### */
  237. #ifdef GENERATE_GUI
  238. void UpdateMUICycleTraces(void)
  239. {
  240.  int i,j=0;
  241.  for (i=1;i<NBR_TRACES;i++)
  242.  {
  243.   /* Trace paramétrée ? (pour affichage dans gadget Cycle MUI) */
  244.   if(Tra[i].Used=='M')
  245.   {
  246.    TabLibellesTraces[j]=Tra[i].NumMenu;
  247.    j++;
  248.   }
  249.  }
  250.  /* Dernière entrée de la liste de pointeurs : NULL */
  251.  TabLibellesTraces[j]=NULL; 
  252.  set(App->ChoixTraces,MUIA_Cycle_Entries,TabLibellesTraces);
  253.  set(App->ChoixTraces,MUIA_Cycle_Active,0);
  254. }
  255.  
  256. /* Renvoie le numéro de la ligne sélectionnée qui servira à se positionner
  257.    dans un gadget Cycle selon la chaine désirée */
  258. /* En entrée : tableau de pointeurs de chaines du cycle */
  259. /*           : pointeur sur la chaine recherchée */
  260. int GetMUICycleToSet(char ** CycleDataPtr,char * Wanted)
  261. {
  262.  int num=0;
  263.  int Fnd=FALSE;
  264.  char * ptchaine;
  265.  do
  266.  {
  267.   ptchaine=CycleDataPtr[num];
  268.   if (strcmp(ptchaine,Wanted)==0)
  269.    Fnd=TRUE;
  270.   if (!Fnd)
  271.   {
  272.    num++;
  273.   }
  274.  }
  275.  while( (*ptchaine!=NULL) && (!Fnd) );
  276.  if (!Fnd)
  277.   num=0;
  278.  return num;
  279. }
  280. /* Renvoie un pointeur sur le contenu du gadget Cycle sélectionné */
  281. /* En entrée : tableau de pointeurs de chaines du cycle */
  282. /*           : entier sur la sélection du cycle */
  283. char * GetMUICycleString(char ** CycleDataPtr, int NumCycleSelected)
  284. {
  285.  int num=0;
  286.  char * ptchaine=CycleDataPtr[num];
  287.  if (NumCycleSelected>0)
  288.  {
  289.   do
  290.   {
  291.    num++;
  292.    ptchaine=CycleDataPtr[num];
  293.   }
  294.   while( (num<NumCycleSelected) && (*ptchaine!=0) );
  295.  }
  296.  return ptchaine;
  297. }
  298. #endif    
  299.  
  300.  
  301.  
  302. /* ----------------------------------------- */
  303. /* Lecture depuis le disque du fichier trace */
  304. /* ----------------------------------------- */
  305. long load_trace_fm_disk(char * Fichier,time_t StartHorodate,time_t EndHorodate)
  306. {
  307.  FILE * FTrace;
  308.  time_t TimeSampleDiskBalayage;
  309.  long i=0;
  310.  time_t * Horodates;
  311.  double * Valeurs;
  312.  if (TraceGraph.Horodates==NULL)
  313.   Horodates=(time_t *)malloc(sizeof(time_t)*2500);
  314.  else
  315.   Horodates=TraceGraph.Horodates;
  316.  if (TraceGraph.Valeurs==NULL)
  317.   Valeurs=(double *)malloc(sizeof(double)*2500);
  318.  else
  319.   Valeurs=TraceGraph.Valeurs;
  320.  
  321.  if ( (Horodates==NULL) || (Valeurs==NULL) )
  322.   return(0);
  323.  TraceGraph.Horodates=Horodates;
  324.  TraceGraph.Valeurs=Valeurs;
  325.  FTrace=fopen(Fichier,"rb");
  326.  if (FTrace)
  327.  {
  328.   double ValSample;
  329.   int FinFic;
  330.   /* Recherche du 1er échantillon */
  331.   do
  332.   {
  333.    FinFic=fread(&TimeSampleDiskBalayage,sizeof(time_t),1,FTrace);
  334.    if (FinFic!=0)     
  335.     fread(&ValSample,sizeof(double),1,FTrace);
  336.   }
  337.   while( (FinFic!=0) && (TimeSampleDiskBalayage<StartHorodate) );
  338.   /* Remplissage de la mémoire avec les échantillons demandés */
  339.   if (FinFic!=0)
  340.   {
  341.    do
  342.    {
  343.     FinFic=fread(&TimeSampleDiskBalayage,sizeof(time_t),1,FTrace);
  344.     if (FinFic!=0)
  345.     {
  346.      Horodates[i]=TimeSampleDiskBalayage;
  347.      FinFic=fread(&ValSample,sizeof(double),1,FTrace);
  348.      if (FinFic!=0)
  349.      {
  350.       Valeurs[i]=ValSample;
  351.       if (TimeSampleDiskBalayage<EndHorodate)
  352.        i++;
  353.        if (i>=2500)
  354.        {
  355.         /* TEMPORAIRE a revoir */
  356.         printf("Memory Overflow... Partie chargement de trace\n");
  357.         exit(30);
  358.        }
  359.      }
  360.     }
  361.    }
  362.    while( (FinFic!=0) && (TimeSampleDiskBalayage<EndHorodate) );
  363.   }
  364.   fclose(FTrace);
  365.  }
  366.  return(i);
  367. }
  368.  
  369. /* ---------------------------------------------- */
  370. /* Libération de la mémoire utilisée par la trace */
  371. /* ---------------------------------------------- */
  372. void free_trace(time_t * Horodates[],double * Valeurs[])
  373. {
  374.  if (*Horodates)
  375.  {
  376.   free((void *)*Horodates);
  377.   *Horodates=NULL;
  378.  }
  379.  if (*Valeurs)
  380.  {
  381.   free((void *)*Valeurs);
  382.   *Valeurs=NULL;
  383.  }
  384. }
  385.  
  386. /* ----------------------------------------------- */
  387. /* Affichage de la trace sous forme numérique dans */
  388. /* le list-view                                    */
  389. /* ----------------------------------------------- */
  390. void show_trace_digital(int LibererMem,long NbrSmp,time_t TabHD[],double TabVal[])
  391. {
  392.  static struct AffiTraceNum * TraceAscii=NULL;
  393.  static long TailleMemTrace;
  394.  long i;
  395.  /* Quelque chose à afficher ? */
  396.  if (NbrSmp==0)
  397.  {
  398.   #ifdef GENERATE_GUI
  399.   DoMethod(App->ListTraceNum,MUIM_List_Clear);
  400.   #endif
  401.  }
  402.  else
  403.  {
  404.   /* Allocation mémoire */
  405.   /* si première fois ou plus d'échantillons à afficher que précédement */
  406.   if ( (NbrSmp!=TailleMemTrace) || (TraceAscii==NULL) )
  407.   {
  408.      if (TraceAscii)
  409.    {
  410.     free(TraceAscii);
  411.     TraceAscii=NULL;
  412.    }
  413.    if (TraceAscii==NULL)
  414.    {
  415.     TraceAscii=(struct AffiTraceNum *)malloc(sizeof(struct AffiTraceNum)*NbrSmp);
  416.     TailleMemTrace=NbrSmp;
  417.    }
  418.   }
  419.  
  420.   if (TraceAscii!=NULL)
  421.   {
  422.    /* Conversion en ascii pour affichage */
  423.    for(i=0;i<NbrSmp;i++)
  424.    {
  425.     convert_long_to_asciidate(TabHD[i],TraceAscii[i].Date,TraceAscii[i].Heure);
  426.     sprintf(TraceAscii[i].Valeur," %f",TabVal[i]);
  427.    }
  428.    /* Allez zouc, tout ça dans le list-view */
  429.    #ifdef GENERATE_GUI
  430.    set(App->ListTraceNum,MUIA_List_Quiet,TRUE);
  431.    DoMethod(App->ListTraceNum,MUIM_List_Clear);
  432.    for(i=0;i<NbrSmp;i++)
  433.    {
  434.     DoMethod(App->ListTraceNum,MUIM_List_InsertSingle,&TraceAscii[i],MUIV_List_Insert_Bottom);
  435.    }
  436.    set(App->ListTraceNum,MUIA_List_Quiet,FALSE);
  437.    set(App->ListTraceNum,MUIA_List_Active,MUIV_List_Active_Bottom);
  438.    #endif  
  439.   }
  440.  }
  441. }
  442.  
  443. /* Return the 32 bits value of time in locale !!! */
  444. time_t timenow(void)
  445. {
  446.  time_t t;
  447.  struct tm *p;
  448.  time(&t);  // en GMT...
  449.  p=localtime(&t);
  450.  return (mktime(p));
  451. }
  452.  
  453. /* ----------------------------------------------------------- */
  454. /* Conversion d'une valeur 32 bits en chaines ascii JJ/MM/AAAA */
  455. /* et HH:MM:SS si pointeur sur deuxième chaine non NULL        */
  456. /* ----------------------------------------------------------- */
  457. void convert_long_to_asciidate(time_t tps,char * ch,char * ch_time)
  458. {
  459.  struct tm *UnpackT;
  460.  
  461.  UnpackT = localtime(&tps);
  462.  sprintf(ch,"%02d/%02d/%04d",UnpackT->tm_mday,UnpackT->tm_mon+1,1900+UnpackT->tm_year);
  463.  if (ch_time)
  464.   sprintf(ch_time,"%02d:%02d:%02d",UnpackT->tm_hour,UnpackT->tm_min,UnpackT->tm_sec);
  465. }
  466. /* -------------------------------------------------------------- */
  467. /* Conversion de chaines ascii JJ/MM/AAAA et HH:MM:SS si deuxième */
  468. /* pointeur non NULL, en valeur 32 bits de temps                  */
  469. /* -------------------------------------------------------------- */
  470. time_t convert_asciidate_to_long(char * ch,char * ch_time)
  471. {
  472.  struct tm DateEnClair;
  473.  int Annee;
  474.  int Mois;
  475.  int Jour;
  476.  int Heure=0,Minute=0,Seconde=0;
  477.  int Offset=0;
  478.  int Valide=TRUE;
  479.  int ValideH;
  480.  time_t TimeRes=0;
  481.  /* LA DATE JJ/MM/AA */
  482.  /* Recherche du jour */
  483.  if ( (ch[Offset+1]=='/') || (ch[Offset+2]=='/') )
  484.  {
  485.   Jour=atoi(&ch[Offset]);
  486.   Offset=Offset+2;
  487.   if (ch[Offset]=='/')
  488.    Offset++;
  489.  }
  490.  else
  491.  {
  492.   Valide=FALSE;
  493.  }
  494.  /* Recherche du mois */
  495.  if ( (ch[Offset+1]=='/') || (ch[Offset+2]=='/') )
  496.  {
  497.   Mois=atoi(&ch[Offset]);
  498.   Offset=Offset+2;
  499.   if (ch[Offset]=='/')
  500.    Offset++;
  501.  }
  502.  else
  503.  {
  504.   Valide=FALSE;
  505.  }
  506.  /* Recherche de l'année */
  507.  if (Valide)
  508.  {
  509.   Annee = atoi(&ch[Offset]);
  510.   /* Année sur 2 chiffres ? */
  511.   if (ch[Offset+2]=='\0')
  512.   {
  513.    Annee = Annee+1900;
  514.   }
  515.   Annee = Annee - 1900;
  516.  }
  517.  
  518.  /* L'HORAIRE HH:MM:SS */
  519.  if (ch_time)
  520.     ValideH=TRUE;
  521.  if (ValideH)
  522.  {
  523.   Offset=0;
  524.   /* Recherche de l'heure */
  525.   if ( (ch_time[Offset+1]==':') || (ch_time[Offset+2]==':') )
  526.   {
  527.    Heure=atoi(&ch_time[Offset]);
  528.    Offset=Offset+2;
  529.    if (ch_time[Offset]==':')
  530.     Offset++;
  531.   }
  532.   else
  533.   {
  534.    ValideH=FALSE;
  535.   }
  536.   /* Recherche de la minute */
  537.   if ( (ch_time[Offset+1]==':') || (ch_time[Offset+2]==':') ||
  538.        (ch_time[Offset+2]=='\0') || (ch_time[Offset+2]=='\0') )
  539.   {
  540.    Minute=atoi(&ch_time[Offset]);
  541.    Offset=Offset+2;
  542.    if (ch_time[Offset]==':')
  543.     Offset++;
  544.   }
  545.   else
  546.   {
  547.    ValideH=FALSE;
  548.   }
  549.   /* Recherche des secondes (facultatif!) */
  550.   if (ValideH)
  551.   {
  552.     Seconde=atoi(&ch_time[Offset]);
  553.   }
  554.  }
  555.  
  556.  /* CALCUL DE LA VALEUR 32 BITS */
  557.  if (Valide)
  558.  {
  559.   DateEnClair.tm_year = Annee;
  560.   DateEnClair.tm_mon = Mois - 1;
  561.   DateEnClair.tm_mday = Jour;
  562.   DateEnClair.tm_isdst = 0; /*1;*/
  563.   if (ValideH)
  564.   {
  565.    DateEnClair.tm_hour = Heure;
  566.    DateEnClair.tm_min = Minute;
  567.    DateEnClair.tm_sec = Seconde;
  568.   }
  569.   else
  570.   {
  571.    DateEnClair.tm_hour = 0;
  572.    DateEnClair.tm_min = 0;
  573.    DateEnClair.tm_sec = 0;
  574.   }
  575.   TimeRes = mktime(&DateEnClair);
  576.  }
  577.  return TimeRes;
  578. } 
  579.  
  580. /* Affichage de la trace */
  581. void show_trace(int NumTrace,time_t StartT,time_t EndT)
  582. {
  583.   long NbrSamples;
  584. //    long i;
  585.   char FichierTrace[256];
  586.   sprintf(FichierTrace,"Sites/%s/Trace%03d",Teletrans.SiteName,NumTrace);
  587.   NbrSamples=load_trace_fm_disk(FichierTrace,StartT,EndT); /*,&TraHorodates,&TraValeurs);*/
  588.   TraceGraph.NbrSamples=NbrSamples;
  589.   show_trace_digital(FALSE,NbrSamples,TraceGraph.Horodates,TraceGraph.Valeurs);
  590. //     for (i=0;i<NbrSamples;i++)
  591. //     {
  592. //         printf("Sample #%d =>  Date:%s (time_t=%u) Valeur:%f\n",i,ctime(&TraHorodates[i]),TraHorodates[i],TraValeurs[i]);
  593. //     }
  594. }
  595.  
  596. #ifdef GENERATE_GUI
  597. void refresh_trace_wanted(int NumTraceDemande,long GlissementDates)
  598. {
  599.  int NumCycle;
  600.  int NumTrace;
  601.  char * DateDeb;
  602.  char * TempsDeb;
  603.  char * DateFin;
  604.  char * TempsFin;
  605.  time_t Tps32Deb,Tps32Fin;
  606.  /* n° de trace actuellement affichée ? */
  607.  get(App->ChoixTraces,MUIA_Cycle_Active,&NumCycle);
  608.  NumTrace=atoi(TabLibellesTraces[NumCycle]);
  609.  /* Trace demandée = sélectionnée ?*/
  610.  if ( (NumTraceDemande==NumTrace) || (NumTraceDemande==0) )
  611.  {
  612.   int RfshAffiDates=FALSE;
  613.   long TailleTps;
  614.   time_t TailleTps32;
  615.   time_t Tab[5]={24*3600,2*24*3600,7*24*3600,31*24*3600,0};
  616.   get(App->Trace_DateStart,MUIA_String_Contents,&DateDeb);
  617.   get(App->Trace_TimeStart,MUIA_String_Contents,&TempsDeb);
  618.   get(App->Trace_DateEnd,MUIA_String_Contents,&DateFin);
  619.   get(App->Trace_TimeEnd,MUIA_String_Contents,&TempsFin);
  620.   Tps32Deb=convert_asciidate_to_long(DateDeb,TempsDeb);
  621.   Tps32Fin=convert_asciidate_to_long(DateFin,TempsFin);
  622.   /* Taille de la plage temporelle affichée */
  623.   get(App->Trace_Range,MUIA_Cycle_Active,&TailleTps);
  624.   TailleTps32=Tab[TailleTps];
  625.   /* Demande de nouvelles dates de type 'Down' */
  626.   if (GlissementDates==ID_TRACE_RANGEDOWN)
  627.   {
  628.    time_t ZoneTpsAutre;
  629.    RfshAffiDates=TRUE;
  630.    if (TailleTps32!=0)
  631.    {
  632.     Tps32Fin=Tps32Deb;
  633.     Tps32Deb=Tps32Deb-TailleTps32;
  634.    }
  635.    else
  636.    {
  637.     ZoneTpsAutre=Tps32Fin-Tps32Deb;
  638.     Tps32Fin=Tps32Deb;
  639.     Tps32Deb=Tps32Deb-ZoneTpsAutre;
  640.    }
  641.   }
  642.   /* Demande de nouvelles dates de type 'Up' */
  643.   if (GlissementDates==ID_TRACE_RANGEUP)
  644.   {
  645.    time_t ZoneTpsAutre;
  646.    RfshAffiDates=TRUE;
  647.    if (TailleTps32!=0)
  648.    {
  649.     Tps32Deb=Tps32Fin;
  650.     Tps32Fin=Tps32Fin+TailleTps32;
  651.    }
  652.    else
  653.    {
  654.     ZoneTpsAutre=Tps32Fin-Tps32Deb;
  655.     Tps32Deb=Tps32Fin;
  656.     Tps32Fin=Tps32Fin+ZoneTpsAutre;
  657.    }
  658.   }
  659.   /* Demande de nouvelle plage temporelle, on recale le temps de fin */
  660.   /* -ou- Saisie d'une nouvelle date de début, on recale la fin */
  661.   if ( (GlissementDates==ID_TRACE_NEWRANGE) || (GlissementDates==ID_TRACE_START) )
  662.   {
  663.    if (TailleTps32!=0)
  664.    {
  665.     RfshAffiDates=TRUE;
  666.     Tps32Fin=Tps32Deb+TailleTps32;
  667.    }
  668.   }
  669.   /* Saisie d'une nouvelle date de fin, on recale le début */
  670.   if (GlissementDates==ID_TRACE_END)
  671.   {
  672.    if (TailleTps32!=0)
  673.    {
  674.     RfshAffiDates=TRUE;
  675.     Tps32Deb=Tps32Fin-TailleTps32;
  676.    }
  677.   }
  678.   /* Mise à jour des champs dates à l'écran */
  679.   if (RfshAffiDates)
  680.   {
  681.    char tmp[20];
  682.    char tmp2[10];
  683.    convert_long_to_asciidate(Tps32Deb,tmp,tmp2);
  684.    set(App->Trace_DateStart,MUIA_String_Contents,tmp);
  685.    set(App->Trace_TimeStart,MUIA_String_Contents,tmp2);
  686.    convert_long_to_asciidate(Tps32Fin,tmp,tmp2);
  687.    set(App->Trace_DateEnd,MUIA_String_Contents,tmp);
  688.    set(App->Trace_TimeEnd,MUIA_String_Contents,tmp2);
  689.    AffiGraphGene.Time32Deb=Tps32Deb;
  690.    AffiGraphGene.Time32Fin=Tps32Fin;
  691.   }
  692.   show_trace(NumTrace,Tps32Deb,Tps32Fin);
  693. //  DoMethod(App->GraphTrace,MUIM_Draw,MADF_DRAWOBJECT);
  694. //    MUI_Redraw(App->GraphTrace,MADF_DRAWOBJECT);
  695.   set(App->GraphTrace,SHOW_GRAPH,&TraceGraph);
  696.  }
  697. }
  698. #endif
  699.  
  700.  
  701.  
  702. /* ############################################################# */
  703. /* Choix d'un site, ou recherche du site avec lequel on vient de
  704.    se connecter sur le disque */
  705. /* ############################################################# */
  706. int SelectSite(void)
  707. {
  708.  struct FileLock * DirSite;
  709.  char DrawerNameSite[256];
  710.  FILE * PtrFileJrnlLoad;
  711.  FILE * PtrFileRessLoad;
  712.  FILE * PtrFileTraLoad;
  713.  char FileName[256];
  714.  int Fin;
  715.  int i;
  716.  char StringFile[256];
  717.  char * StrTraceOffset;
  718.   int ParamsOfSiteFnd=FALSE;
  719.   #ifndef GENERATE_GUI
  720.   printf("Nom du site:%s - Type:%s - Version:%s\n",Teletrans.SiteName,Teletrans.Type,Teletrans.Version);
  721.   #else
  722.   set(App->SiteName,MUIA_Text_Contents,Teletrans.SiteName);
  723.   set(App->Type,MUIA_Text_Contents,Teletrans.Type);
  724.   set(App->Version,MUIA_Text_Contents,Teletrans.Version);
  725.   set(App->NumTelephone,MUIA_String_Contents,Teletrans.NumTel);
  726.   #endif
  727.   /* Nettoyage Messages */
  728.   #ifdef GENERATE_GUI
  729.   set(App->MessageTextNum0,MUIA_String_Contents,"");
  730.   set(App->MessageTextNum1,MUIA_String_Contents,"");
  731.   set(App->MessageTextNum2,MUIA_String_Contents,"");
  732.   set(App->MessageTextNum3,MUIA_String_Contents,"");
  733.   set(App->MessageTextNum4,MUIA_String_Contents,"");
  734.   set(App->MessageTextNum5,MUIA_String_Contents,"");
  735.   set(App->MessageTextNum6,MUIA_String_Contents,"");
  736.   set(App->MessageTextNum7,MUIA_String_Contents,"");
  737.   #endif
  738.   /* Nettoyage Liste Journal et Liste Etats */
  739.   #ifdef GENERATE_GUI
  740.   DoMethod(App->ListJournal,MUIM_List_Clear);
  741.   DoMethod(App->ListEtats,MUIM_List_Clear);
  742.     set(App->ListEtats,MUIA_List_Quiet,TRUE);
  743.   #endif
  744.   /* Initialisation chaines Libellés/Etats des ressources */
  745.   i=0;
  746.   do
  747.   {
  748.    Ress[i].Libelle[0]='\0';
  749.    Ress[i].Etat[0]='\0';
  750.    #ifdef GENERATE_GUI
  751.    DoMethod(App->ListEtats ,MUIM_List_InsertSingle,&Ress[i],MUIV_List_Insert_Bottom);
  752.    #endif   
  753.    i++;
  754.   }
  755.   while(i<Teletrans.NumRessourcesMax);
  756.   #ifdef GENERATE_GUI
  757.   set(App->ListEtats,MUIA_List_Quiet,FALSE);
  758.   #endif
  759.   /* Initialisation du journal */
  760.   NumLastEven_Journal=-1;
  761.   DateLastEven_Journal[0]='\0';
  762.   JrnlTaille=0;
  763.   if (Jrnl)
  764.   {
  765.    free(Jrnl);
  766.    Jrnl=NULL;
  767.   }
  768.   /* On regarde sur le disque dur si on connait ce site ... */
  769.   strcpy(DrawerNameSite,"Sites/");
  770.   strcat(DrawerNameSite,Teletrans.SiteName);  
  771.   DirSite= (struct FileLock *)Lock(DrawerNameSite,ACCESS_READ);
  772.   if (DirSite!=NULL)
  773.   {
  774.    /* Site connu */
  775.    /*------------*/
  776.    UnLock((BPTR) DirSite);
  777.    /* Lecture des libellés des ressources sauvés sur le disque */
  778.    strcpy(FileName,"Sites/");
  779.    strcat(FileName,Teletrans.SiteName);
  780.    strcat(FileName,"/Ressources.txt");
  781.    PtrFileRessLoad=fopen(FileName,"rt");
  782.    if (PtrFileRessLoad!=NULL)
  783.    {
  784.     i=0;
  785.     do
  786.     {
  787.      Fin=(int)fgets(StringFile,255,PtrFileRessLoad);
  788.      if (Fin!=0)
  789.      {
  790.       strcpy_termnotnull(Ress[i].Libelle,StringFile,10,0);
  791.      }
  792.      i++;
  793.     }
  794.     while((Fin!=0)&&(i<NBR_RESSOURCES));
  795.     fclose(PtrFileRessLoad);
  796.     ParamsOfSiteFnd=TRUE;
  797.     #ifdef GENERATE_GUI
  798.     DoMethod(App->ListEtats,MUIM_List_Redraw,MUIV_List_Redraw_All);
  799.     #endif    
  800.    }
  801.  
  802.    /* Lecture du journal sauvé sur le disque */
  803.    strcpy(FileName,"Sites/");
  804.    strcat(FileName,Teletrans.SiteName);
  805.    strcat(FileName,"/Journal.txt");
  806.    PtrFileJrnlLoad=fopen(FileName,"rt");
  807.    if (PtrFileJrnlLoad!=NULL)
  808.    {
  809.     #ifdef GENERATE_GUI
  810.     set(App->ListJournal,MUIA_List_Quiet,TRUE);
  811.     #endif
  812.     do
  813.     {
  814.      Fin=(int)fgets(StringFile,255,PtrFileJrnlLoad);
  815.      if (Fin!=0)
  816.      {
  817.       NumLastEven_Journal=atol(StringFile);
  818.       strcpy_termnotnull(DateLastEven_Journal,StringFile+5,9,0);
  819.       AddEvenInJrnl(StringFile,FALSE);
  820.      }
  821.     }
  822.     while(Fin!=0);
  823.     fclose(PtrFileJrnlLoad);
  824.     #ifdef GENERATE_GUI
  825.     set(App->ListJournal,MUIA_List_Quiet,FALSE);
  826.     #endif
  827.    }
  828.  
  829.    /* Lecture du paramétrage des traces sauvé sur le disque */
  830.    strcpy(FileName,"Sites/");
  831.    strcat(FileName,Teletrans.SiteName);
  832.    strcat(FileName,"/Traces.txt");
  833.    PtrFileTraLoad=fopen(FileName,"rt");
  834.    if (PtrFileTraLoad!=NULL)
  835.    {
  836.     i=1;
  837.     do
  838.     {
  839.      Fin=(int)fgets(StringFile,255,PtrFileTraLoad);
  840.      if (Fin!=0)
  841.      {
  842.       if(strlen(StringFile)>1)
  843.       {
  844.        Tra[i].Used='M';
  845.        strcpy_termnotnull(Tra[i].NumMenu,StringFile,9,0);
  846.        Tra[i].NumMenu[3]=' ';
  847.        Tra[i].NumMenu[4]='-';
  848.        Tra[i].NumMenu[5]=' ';
  849.        StrTraceOffset=str_field(StringFile,128,10,'\t');
  850.        if (StrTraceOffset)
  851.        {
  852.         strcpy_termnotnull(Tra[i].Libelle,StrTraceOffset,'\n','\t');
  853.        }
  854.       }
  855.       else
  856.       {
  857.        Tra[i].Used='A';
  858.       }
  859.      }
  860.      i++;
  861.     }
  862.     while((Fin!=0)&&(i<NBR_TRACES));
  863.     fclose(PtrFileTraLoad);
  864.     #ifdef GENERATE_GUI
  865.     UpdateMUICycleTraces();
  866.     refresh_trace_wanted(0,NULL); // Refresh de la trace sélectionnée
  867.     #endif
  868.    }
  869.    else
  870.    {
  871.     ParamsOfSiteFnd=FALSE;
  872.    }
  873.   }
  874.   return ParamsOfSiteFnd;
  875. }
  876.  
  877.  
  878. #ifdef GENERATE_GUI
  879. void ChoixSiteConnu(void)
  880. {
  881.  long NumSiteChoisi;
  882.  char * NomSite=ListeSitesConnus;
  883.  int i;
  884.  char FileName[256];
  885.  char tmp[50];
  886.  get(App->ListSavedSites,MUIA_List_Active,&NumSiteChoisi); 
  887.  // On cherche la chaine correspondante
  888.  if (ListeSitesConnus)
  889.  {
  890.   for(i=0;i<NumSiteChoisi;i++)
  891.   {
  892.    do
  893.    {
  894.     NomSite++;
  895.    }
  896.    while(*NomSite!='\0');
  897.    NomSite++;
  898.   }
  899.   strcpy(Teletrans.SiteName,NomSite);
  900.  
  901.   strcpy(FileName,"Sites/");
  902.   strcat(FileName,Teletrans.SiteName);
  903.   strcat(FileName,"/InfosSite.txt");
  904.  
  905.   ReadStringParamIni("TYPE","???",Teletrans.Type,FileName);
  906.   ReadStringParamIni("VERSION","???",Teletrans.Version,FileName);
  907.   ReadStringParamIni("TRSII_EXTENDED","FALSE",tmp,FileName);
  908.   if (strcmp(tmp,"FALSE")==0)
  909.    Teletrans.TRSII_Extended_Clip=FALSE;
  910.   else
  911.    Teletrans.TRSII_Extended_Clip=TRUE;
  912.   Teletrans.NumRessourcesMax=ReadIntParamIni("RESSOURCES_NBR",100,FileName);
  913.   Teletrans.NumTracesMax=ReadIntParamIni("TRACES_NBR",20,FileName);
  914.   ReadStringParamIni("TELEPHONE","",Teletrans.NumTel,FileName);
  915.   SelectSite();
  916.  }
  917. }
  918. #endif
  919.  
  920. #ifdef GENERATE_GUI
  921. /* ######################################################
  922.    Mise à jour de la fenêtre contenant la liste des sites
  923.    déjà appelés et sauvegardés sur le disque
  924.    ###################################################### */
  925. void MiseAJourListeSitesConnus(void)
  926. {
  927.  BPTR DirLock;
  928.  struct FileInfoBlock FileInfo;
  929.  char PasLaFin=TRUE;
  930.  char SiteTmp[200];
  931.  long LgtSites=0;
  932.  int NbrSites=0;
  933.  int SiteActuel=-1;
  934.  int i;
  935.  if (ListeSitesConnus!=NULL)
  936.  {
  937.   free(ListeSitesConnus);
  938.   ListeSitesConnus=NULL;
  939.  }
  940.  DirLock=Lock("Sites",ACCESS_READ);
  941.  if(DirLock)
  942.  {
  943.   PasLaFin=Examine(DirLock,&FileInfo);
  944.   if (PasLaFin)
  945.   {
  946.    do
  947.    {
  948.     PasLaFin=ExNext(DirLock,&FileInfo);
  949.     if (PasLaFin)
  950.     {
  951.      if (FileInfo.fib_DirEntryType>0) // c'est un répertoire ?
  952.      {
  953.       strcpy(SiteTmp,FileInfo.fib_FileName);
  954.       if (strcmp(Teletrans.SiteName,SiteTmp)==0)
  955.        SiteActuel=NbrSites;
  956.       NbrSites++;
  957.       // On est obligé de conserver les chaines en mémoire car MUI utilise un pointeur
  958.       // sur la chaine passée en argument lors du DoMethod...
  959.       if (ListeSitesConnus)
  960.       {
  961.        ListeSitesConnus=realloc(ListeSitesConnus,LgtSites+strlen(SiteTmp)+1);
  962.       }
  963.       else
  964.       {
  965.        ListeSitesConnus=malloc(strlen(SiteTmp)+1);
  966.        ListeSitesConnus[0]=0;
  967.       }
  968.       if (ListeSitesConnus)
  969.       {
  970.        strcpy(ListeSitesConnus+LgtSites,SiteTmp);
  971.        LgtSites=LgtSites+strlen(SiteTmp)+1;
  972.       }      
  973.      }
  974.     }
  975.    }
  976.    while(PasLaFin);
  977.   }
  978.   UnLock(DirLock);
  979.  }
  980.  DoMethod(App->ListSavedSites,MUIM_List_Clear);
  981.  // On est obligé de le faire maintenant et on ne peux pas le faire au fur et à mesure
  982.  // car les realloc empechent d'avoir les pointeurs sur les chaînes de stables...
  983.  if (NbrSites)
  984.  {
  985.   char * NomSite=ListeSitesConnus;
  986.   for (i=0;i<NbrSites;i++)
  987.   {
  988.    DoMethod(App->ListSavedSites,MUIM_List_InsertSingle,NomSite,MUIV_List_Insert_Bottom);
  989.    do
  990.    {
  991.     NomSite++;
  992.    }
  993.    while(*NomSite!='\0');
  994.    NomSite++;
  995.   }
  996.   if (SiteActuel!=-1)
  997.    set(App->ListSavedSites,MUIA_List_Active,SiteActuel);
  998.  } 
  999. }
  1000. #endif
  1001.  
  1002. /* ############################### */
  1003. /* # GESTION DU RAFRAICHISSEMENT # */
  1004. /* # SUITE AUX DONNES RECUES     # */
  1005. /* ############################### */
  1006. void gestion_refresh(char * EndOfStep,char * ParamFoundOnDisk,char FirstPassageInStep)
  1007. {
  1008.  struct FileLock * DirSite;
  1009.  char DrawerNameSite[256];
  1010.  FILE * PtrFileJrnlSave;
  1011.  FILE * PtrFileRessSave;
  1012.  FILE * PtrFileTraSave;
  1013.  char FileName[300];
  1014.  char NumEvenStr[16];
  1015.  char tmp[50];
  1016.  
  1017.  if (RefreshType==RFH_IDENTITE)
  1018.  {
  1019.   int Fnd;
  1020.   Fnd=SelectSite();
  1021.   *ParamFoundOnDisk=Fnd;
  1022.   if (!Fnd) 
  1023.   {
  1024.    /* Nouveau site */
  1025.    /*--------------*/
  1026.    strcpy(DrawerNameSite,"Sites/");
  1027.    strcat(DrawerNameSite,Teletrans.SiteName);  
  1028.    DirSite=(struct FileLock *)CreateDir(DrawerNameSite);
  1029.    if (DirSite!=NULL)
  1030.    {
  1031.     UnLock((BPTR) DirSite);
  1032.     /* Sauvegarde des infos concernant le site */
  1033.     WriteStringParamIni("TYPE",Teletrans.Type,"T:ClipWatchCurrentSite");
  1034.     WriteStringParamIni("VERSION",Teletrans.Version,"T:ClipWatchCurrentSite");
  1035.     if (Teletrans.TRSII_Extended_Clip==FALSE)
  1036.      strcpy(tmp,"FALSE");
  1037.     else
  1038.      strcpy(tmp,"TRUE");
  1039.     WriteStringParamIni("TRSII_EXTENDED",tmp,"T:ClipWatchCurrentSite");
  1040.     WriteIntParamIni("RESSOURCES_NBR",Teletrans.NumRessourcesMax,"T:ClipWatchCurrentSite");
  1041.     WriteIntParamIni("TRACES_NBR",Teletrans.NumTracesMax,"T:ClipWatchCurrentSite");    
  1042.     WriteStringParamIni("TELEPHONE",Teletrans.NumTel,"T:ClipWatchCurrentSite");
  1043.     strcpy(FileName,"copy T:ClipWatchCurrentSite \"Sites/");
  1044.     strcat(FileName,Teletrans.SiteName);
  1045.     strcat(FileName,"/InfosSite.txt\"");
  1046.     system(FileName);
  1047.     remove("T:ClipWatchCurrentSite");
  1048.     /* On met à jour la liste des sites connus */
  1049.     #ifdef GENERATE_GUI
  1050.     MiseAJourListeSitesConnus();
  1051.     #endif
  1052.    }
  1053.    else
  1054.    {
  1055.     ErrorMessageRequest("Nouveau site impossible à créer");
  1056.    }
  1057.   }
  1058.  }
  1059.  
  1060.  if (RefreshType==RFH_DATE)
  1061.  {
  1062.   #ifndef GENERATE_GUI
  1063.   printf("Date locale:%s\n",Teletrans.LocalDate);
  1064.   #else
  1065.   set(App->Date,MUIA_Text_Contents,Teletrans.LocalDate);
  1066.   #endif
  1067.  }
  1068.  
  1069.  if (RefreshType==RFH_TIME)
  1070.  {
  1071.   #ifndef GENERATE_GUI
  1072.   printf("Heure locale:%s\n",Teletrans.LocalTime);
  1073.   #else
  1074.   set(App->Time,MUIA_Text_Contents,Teletrans.LocalTime);
  1075.   #endif
  1076.  }
  1077.  
  1078.  if (RefreshType==RFH_JOURNAL)
  1079.  {
  1080.   /* Plus d'événement ? */
  1081.   if (strcmp(Even_Journal,"FIN")==0)
  1082.   {
  1083.    *EndOfStep=TRUE;
  1084.   }
  1085.   else
  1086.   {
  1087.    strcpy_termnotnull(NumEvenStr,Even_Journal,13,9);
  1088.    /* Lors de la première lecture via la date, il faut vérifier qu'il s'agit
  1089.       bien d'un événement inconnu */
  1090.    if ( (!FirstPassageInStep) || (NumLastEven_Journal!=atol(NumEvenStr)) )
  1091.    {
  1092.     #ifndef GENERATE_GUI
  1093.     printf("%s\n",Even_Journal);
  1094.     #else
  1095.     AddEvenInJrnl(Even_Journal,TRUE);
  1096.     #endif
  1097.     /* Sauvegarde sur le disque de l'événement */
  1098.     strcpy(FileName,"Sites/");
  1099.     strcat(FileName,Teletrans.SiteName);
  1100.     strcat(FileName,"/Journal.txt");
  1101.     PtrFileJrnlSave=fopen(FileName,"at");
  1102.     if (PtrFileJrnlSave!=NULL)
  1103.     {
  1104.      fprintf(PtrFileJrnlSave,"%s\n",Even_Journal);
  1105.      fclose(PtrFileJrnlSave);
  1106.     }
  1107.     else
  1108.     {
  1109.      ErrorMessageRequest("Sauvegarde journal impossible");
  1110.      *EndOfStep=TRUE;
  1111.     }
  1112.     NumLastEven_Journal=atol(NumEvenStr);
  1113.    }
  1114.   }
  1115.  } 
  1116.  
  1117.  if (RefreshType==RFH_LIBELLE_RESS)
  1118.  {
  1119.   strcpy(FileName,"Sites/");
  1120.   strcat(FileName,Teletrans.SiteName);
  1121.   strcat(FileName,"/Ressources.txt");
  1122.   #ifdef GENERATE_GUI
  1123.   DoMethod(App->ListEtats,MUIM_List_Redraw,RefreshParam);
  1124.   #endif
  1125.   /* Si première ressource, init.fichier sinon rajout */
  1126.   if (RefreshParam>0)
  1127.   {
  1128.    PtrFileRessSave=fopen(FileName,"at");
  1129.   }
  1130.   else
  1131.   {
  1132.    PtrFileRessSave=fopen(FileName,"wt");
  1133.   }
  1134.   if (PtrFileRessSave!=NULL)
  1135.   {
  1136.    fprintf(PtrFileRessSave,"%s\n",Ress[RefreshParam].Libelle);
  1137.    fclose(PtrFileRessSave);
  1138.   }
  1139.   else
  1140.   {
  1141.    if (RefreshParam==0)
  1142.    {
  1143.     ErrorMessageRequest("Sauvegarde libellés ressources impossible");
  1144.    }
  1145.   }
  1146.   /* Dernière ressource ? */
  1147.   if (RefreshParam==Teletrans.NumRessourcesMax-1)
  1148.   {
  1149.    *EndOfStep=TRUE;
  1150.   }
  1151.  }
  1152.  
  1153.  if (RefreshType==RFH_PARAM_TRACE)
  1154.  {
  1155.   /* Plus de traces (dépassement capacité télétrans en nbr de traces) ? */
  1156.   if (RefreshParam==0)
  1157.   {
  1158.    *EndOfStep=TRUE;
  1159.   }
  1160.   strcpy(FileName,"Sites/");
  1161.   strcat(FileName,Teletrans.SiteName);
  1162.   strcat(FileName,"/Traces.txt");
  1163.   /* Si première trace, init.fichier sinon rajout */
  1164.   if (RefreshParam>1)
  1165.   {
  1166.    PtrFileTraSave=fopen(FileName,"at");
  1167.   }
  1168.   else
  1169.   {
  1170.    PtrFileTraSave=fopen(FileName,"wt");
  1171.   }
  1172.   if (PtrFileTraSave!=NULL)
  1173.   {
  1174.    fprintf(PtrFileTraSave,"%s\n",Param_Trace);
  1175.    fclose(PtrFileTraSave);
  1176.   }
  1177.   else
  1178.   {
  1179.    if (RefreshParam==1)
  1180.    {
  1181.     ErrorMessageRequest("Sauvegarde paramétrage traces impossible");
  1182.    }
  1183.   }
  1184.   /* Dernière trace ? */
  1185.   if (RefreshParam==Teletrans.NumTracesMax-1)
  1186.   {
  1187.    /* Rafraichissement du gadget cyclique contenant tous les noms de traces */
  1188.    #ifdef GENERATE_GUI
  1189.    UpdateMUICycleTraces();
  1190.    #endif
  1191.    *EndOfStep=TRUE;
  1192.   }
  1193.  }
  1194.  
  1195.  if (RefreshType==RFH_ETAT_RESS)
  1196.  {
  1197.   #ifdef GENERATE_GUI
  1198.   DoMethod(App->ListEtats,MUIM_List_Redraw,RefreshParam);   
  1199.   #endif   
  1200.  }
  1201.  
  1202.  if (RefreshType==RFH_MESSAGEBOX)
  1203.  {
  1204.   #ifdef GENERATE_GUI
  1205.   switch(RefreshParam)
  1206.   {
  1207.    case 0:
  1208.     set(App->MessageTextNum0,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1209.     set(App->MessageTextNum0,MUIA_String_BufferPos,0);
  1210.     break;
  1211.    case 1:
  1212.     set(App->MessageTextNum1,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1213.     set(App->MessageTextNum1,MUIA_String_BufferPos,0);
  1214.     break;
  1215.    case 2:
  1216.     set(App->MessageTextNum2,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1217.     set(App->MessageTextNum2,MUIA_String_BufferPos,0);
  1218.     break;
  1219.    case 3:
  1220.     set(App->MessageTextNum3,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1221.     set(App->MessageTextNum3,MUIA_String_BufferPos,0);
  1222.     break;
  1223.    case 4:
  1224.     set(App->MessageTextNum4,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1225.     set(App->MessageTextNum4,MUIA_String_BufferPos,0);
  1226.     break;
  1227.    case 5:
  1228.     set(App->MessageTextNum5,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1229.     set(App->MessageTextNum5,MUIA_String_BufferPos,0);
  1230.     break;
  1231.    case 6:
  1232.     set(App->MessageTextNum6,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1233.     set(App->MessageTextNum6,MUIA_String_BufferPos,0);
  1234.     break;
  1235.    case 7:
  1236.     set(App->MessageTextNum7,MUIA_String_Contents,MessagesBox[RefreshParam]);
  1237.     set(App->MessageTextNum7,MUIA_String_BufferPos,0);
  1238.     break;
  1239.   }
  1240.   #else
  1241.   printf("Message n°%d => %s\n",RefreshParam,MessagesBox[RefreshParam]);
  1242.   #endif   
  1243.   /* Dernière boite aux lettres ? */
  1244.   if (RefreshParam==NBR_MESSAGESBOX-1)
  1245.   {
  1246.    *EndOfStep=TRUE;
  1247.   }
  1248.  }
  1249.  
  1250.  if (RefreshType==RFH_TRACE)
  1251.  {
  1252.   /* Plus de traces (dépassement capacité télétrans en nbr de traces)? */
  1253.   if (RefreshParam==0)
  1254.   {
  1255.    *EndOfStep=TRUE;
  1256.   }
  1257.   else
  1258.   {
  1259.   #ifdef GENERATE_GUI
  1260.    refresh_trace_wanted(RefreshParam,NULL);
  1261.   #endif
  1262.   }   
  1263.  }
  1264.  
  1265.  RefreshType=0;
  1266. }
  1267.  
  1268. /* ######################################### */
  1269. /* # GESTION DU DIALOGUE AVEC LA TELETRANS # */
  1270. /* ######################################### */
  1271. void gestion_dialogue(int NewConnexion)
  1272. {
  1273.  static int Step=0;
  1274.  static char StepFirstPassage=TRUE;
  1275.  static char StepDone=FALSE;
  1276.  static char WaitingResponse=FALSE;
  1277.  static char ParamSiteSaved=FALSE;
  1278.  static char CurrentRequest[64];
  1279.  static int CurrentRequestLgt;
  1280.  static int LgtTrameRecue;
  1281.  static unsigned long LaunchTime;
  1282.  static int BaseTimeOut;
  1283.  int TrameReponseOk;
  1284.  static int CurrentAttemps;
  1285.  static int NumRessALire;
  1286.  char NumRessALireStr[16];
  1287.  static char FirstJournalLoading=TRUE;
  1288.  
  1289.  char NumEvenStr[16];
  1290.  
  1291.  if (NewConnexion)
  1292.  {
  1293.   Step=0;
  1294.   StepFirstPassage=TRUE;
  1295.   StepDone=FALSE;
  1296.   WaitingResponse=FALSE;
  1297.   ParamSiteSaved=FALSE;
  1298.   FirstJournalLoading=TRUE;
  1299.  }
  1300.  
  1301.  if ( (WaitingResponse) || (StepDone) )
  1302.  {
  1303.   /* On attend la réponse ... */
  1304.   if (WaitingResponse)
  1305.   {
  1306.    TrameReponseOk=receive_request_trsii(CurrentRequest,CurrentRequestLgt,&LaunchTime,&CurrentAttemps,TrameRecue,&LgtTrameRecue,BaseTimeOut);
  1307.    if (TrameReponseOk==TRUE)
  1308.    {
  1309.     WaitingResponse=FALSE;
  1310.     gestion_refresh(&StepDone,&ParamSiteSaved,StepFirstPassage);
  1311.     StepFirstPassage=FALSE;
  1312.    }
  1313.   }
  1314.   /* Etape Terminée ? => Nouvelle étape */
  1315.   if ( (StepDone)&&(!(WaitingResponse)) )
  1316.   {
  1317.    Step++;
  1318.    StepFirstPassage=TRUE;
  1319.    StepDone=FALSE;
  1320.    /* Pas de lecture des libellés des ressources / du paramétrage des traces */
  1321.    /* si sauvés sur disque */
  1322.    if ( ((Step==3)||(Step==4)) && (ParamSiteSaved==TRUE) )
  1323.    {
  1324.     Step=5;
  1325.    }
  1326.    /* Pas de récupération des messages si pas choisi dans préférences */
  1327.    if ( (Step==5) && (!(RecupDesMessages)) )
  1328.    {
  1329.     Step++;
  1330.    }
  1331.    /* On ne peut pas récupérer le journal avec un Force + choix dans préférences */
  1332.    if ( (Step==8) && ( (Teletrans.TRSII_Extended_Clip==FALSE)||(!(RecupDuJournal)) )  )
  1333.    {
  1334.     Step++;
  1335.    } 
  1336.    /* On ne récupère pas les traces avec un Force */
  1337.    if ( (Step==10) && (!RecupDesTraces||(Teletrans.TRSII_Extended_Clip==FALSE)) )
  1338.    {
  1339.     Step++;
  1340.    } 
  1341.    if (Step==11)
  1342.    {
  1343.     #ifndef GENERATE_GUI
  1344.     for(NumRessALire=0;NumRessALire<20;NumRessALire++)
  1345.     {
  1346.      printf("Ress:%d => %s \t %s\n",NumRessALire,Ress[NumRessALire].Libelle,Ress[NumRessALire].Etat);
  1347.     }
  1348.     printf("Raccroche...\n");
  1349.     hangup_modem();
  1350.     TeletransOnLine=FALSE;
  1351.     #else
  1352.     Step=7;
  1353.     #endif
  1354.    }
  1355.   }
  1356.  }
  1357.  else
  1358.  {
  1359.   /* On pose une nouvelle question ! */  
  1360.   switch(Step)
  1361.   {
  1362.    case 0:
  1363.     /* FORCAGE MODE TRSII */
  1364.     /* ------------------ */
  1365.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"OTHER","W06","",&LaunchTime,&BaseTimeOut);
  1366.     Delay(20);
  1367.     Step++;
  1368.     break;
  1369.  
  1370.    case 1:
  1371.     /* PASSAGE CODE D'ACCES */
  1372.     /* -------------------- */
  1373.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"ACCES",Teletrans.Password,"",&LaunchTime,&BaseTimeOut);
  1374.     CurrentAttemps=3;
  1375.     LgtTrameRecue=0;
  1376.     WaitingResponse=TRUE;
  1377.     StepDone=TRUE;
  1378.     break;
  1379.  
  1380.    case 2:
  1381.     /* DEMANDE IDENTITE STATION */
  1382.     /* ------------------------ */
  1383.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"IDENT?","","",&LaunchTime,&BaseTimeOut);
  1384.     CurrentAttemps=3;
  1385.     LgtTrameRecue=0;
  1386.     WaitingResponse=TRUE;
  1387.     StepDone=TRUE;
  1388.     break;
  1389.  
  1390.    case 3:
  1391.     /* LECTURE LIBELLES RESSOURCES */
  1392.     /* --------------------------- */
  1393.     if (StepFirstPassage==TRUE)
  1394.     {
  1395.      NumRessALire=0;
  1396.     }
  1397.     else
  1398.     {
  1399.      NumRessALire++;
  1400.     }
  1401.     sprintf(NumRessALireStr,"%0d",NumRessALire);
  1402.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"RESS?",NumRessALireStr,"",&LaunchTime,&BaseTimeOut);
  1403.     CurrentAttemps=3;
  1404.     LgtTrameRecue=0;
  1405.     WaitingResponse=TRUE;
  1406.     break;
  1407.  
  1408.    case 4:
  1409.     /* LECTURE PARAMETRAGE TRACES */
  1410.     /* -------------------------- */
  1411.     if (StepFirstPassage==TRUE)
  1412.     {
  1413.      NumRessALire=1;
  1414.     }
  1415.     else
  1416.     {
  1417.      NumRessALire++;
  1418.     }
  1419.     sprintf(NumRessALireStr,"%0d",NumRessALire);
  1420.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"TP?",NumRessALireStr,"",&LaunchTime,&BaseTimeOut);
  1421.     CurrentAttemps=3;
  1422.     LgtTrameRecue=0;
  1423.     WaitingResponse=TRUE;
  1424.     break;
  1425.  
  1426.    case 5:
  1427.     /* LECTURE DES MESSAGES DE LA BOITE */
  1428.     /* -------------------------------- */
  1429.     if (StepFirstPassage==TRUE)
  1430.     {
  1431.      NumRessALire=0;
  1432.     }
  1433.     else
  1434.     {
  1435.      NumRessALire++;
  1436.     }
  1437.     sprintf(NumRessALireStr,"%0d",NumRessALire);
  1438.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"MESS?",NumRessALireStr,"",&LaunchTime,&BaseTimeOut);
  1439.     CurrentAttemps=3;
  1440.     LgtTrameRecue=0;
  1441.     WaitingResponse=TRUE;
  1442.     break;
  1443.  
  1444.    case 6:
  1445.     /* DEMANDE DATE LOCALE */
  1446.     /* ------------------- */
  1447.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"DATE?","","",&LaunchTime,&BaseTimeOut);
  1448.     CurrentAttemps=3;
  1449.     LgtTrameRecue=0;
  1450.     WaitingResponse=TRUE;
  1451.     StepDone=TRUE;
  1452.     break;
  1453.  
  1454.    case 7:
  1455.     /* DEMANDE HEURE LOCALE */
  1456.     /* ------------------- */
  1457.     send_request_trsii(CurrentRequest,&CurrentRequestLgt,"TIME?","","",&LaunchTime,&BaseTimeOut);
  1458.     CurrentAttemps=3;
  1459.     LgtTrameRecue=0;
  1460.     WaitingResponse=TRUE;
  1461.     StepDone=TRUE;
  1462.     break;
  1463.  
  1464.    case 8:
  1465.     /* LECTURE DU JOURNAL */
  1466.     /* ------------------ */
  1467.     /* On ne connait aucun événement ? */
  1468.     if (NumLastEven_Journal==-1)
  1469.     {
  1470.      send_request_trsii(CurrentRequest,&CurrentRequestLgt,"J?","","",&LaunchTime,&BaseTimeOut);
  1471.     }
  1472.     else
  1473.     {
  1474.      if (FirstJournalLoading)
  1475.      {
  1476.       /* On veut l'événement suivant la date du dernier événement connu */
  1477.       /* On reçoit un "Token incorrect" si jamais il y a un trou dans les index */
  1478.       /* d'événements en passant par la commande J? #index */
  1479.       send_request_trsii(CurrentRequest,&CurrentRequestLgt,"J?",DateLastEven_Journal,"",&LaunchTime,&BaseTimeOut);
  1480.       FirstJournalLoading=FALSE;
  1481.      }
  1482.      else
  1483.      {
  1484.       /* On veux l'événement suivant LastNumEven */
  1485.       /* Attention, numéro d'événement sur 4 caractères!!! */
  1486.       NumEvenStr[0]='#';
  1487.       RealToStrWithZeros(NumEvenStr+1,4,NumLastEven_Journal);
  1488.       send_request_trsii(CurrentRequest,&CurrentRequestLgt,"J?",NumEvenStr,"",&LaunchTime,&BaseTimeOut);
  1489.      }
  1490.     }
  1491.     CurrentAttemps=3;
  1492.     LgtTrameRecue=0;
  1493.     WaitingResponse=TRUE;
  1494.     break;
  1495.  
  1496.    case 9:
  1497.     /* LECTURE ETATS DES RESSOURCES */
  1498.     /* ---------------------------- */
  1499.     if (StepFirstPassage==TRUE)
  1500.     {
  1501.      NumRessALire=-1;
  1502.     }
  1503.     do
  1504.     {
  1505.      NumRessALire++;
  1506.     }
  1507.     while( (Ress[NumRessALire].Libelle[0]=='\0') && (NumRessALire<(Teletrans.NumRessourcesMax-1)) );
  1508.     if (NumRessALire<Teletrans.NumRessourcesMax)
  1509.     {
  1510.      sprintf(NumRessALireStr,"%0d",NumRessALire);
  1511.      send_request_trsii(CurrentRequest,&CurrentRequestLgt,"ETAT?",NumRessALireStr,"",&LaunchTime,&BaseTimeOut);
  1512.      CurrentAttemps=3;
  1513.      LgtTrameRecue=0;
  1514.      WaitingResponse=TRUE;
  1515.     }
  1516.     else
  1517.     {
  1518.      StepDone=TRUE;
  1519.     }
  1520.     break;
  1521.  
  1522.    case 10:
  1523.     /* LECTURE DES TRACES */
  1524.     /* ------------------- */
  1525.     if (StepFirstPassage==TRUE)
  1526.     {
  1527.      NumRessALire=0;
  1528.     }
  1529.     do
  1530.     {
  1531.      NumRessALire++;
  1532.     }
  1533.     while( (Tra[NumRessALire].Used!='M') && (NumRessALire<(Teletrans.NumTracesMax-1)) );
  1534.     if (NumRessALire<Teletrans.NumTracesMax-1)
  1535.     {
  1536.      sprintf(NumRessALireStr,"%0d",NumRessALire);
  1537.      send_request_trsii(CurrentRequest,&CurrentRequestLgt,"T?",NumRessALireStr,"",&LaunchTime,&BaseTimeOut);
  1538.      CurrentAttemps=3;
  1539.      LgtTrameRecue=0;
  1540.      WaitingResponse=TRUE;
  1541.     }
  1542.     else
  1543.     {
  1544.      StepDone=TRUE;
  1545.     }
  1546.     break;
  1547.  
  1548.  
  1549.   }
  1550.  }
  1551. }
  1552.  
  1553.  
  1554.  
  1555.  
  1556. /*-----------------------------*/
  1557. /*             MAIN            */
  1558. /*-----------------------------*/
  1559.  
  1560. int main(int argc, char *argv[])
  1561. {
  1562.  char Quitter=FALSE;
  1563.  #ifdef GENERATE_GUI
  1564.  ULONG    signal;
  1565.  char *StrContents;
  1566.  #endif
  1567.  char InitStringForModem[128]="";
  1568.  int Result;
  1569.  unsigned long StartTimeOfCnx=0;
  1570.  char TimeOfCnxString[10+50];
  1571.  int TimeOfCnx=0;
  1572.  int TimeOfCnx_bak=0;
  1573.  char tmp[50];
  1574.  char tmp2[50];
  1575.  char * AboutMsg;
  1576.  char SignalConnexion=FALSE;
  1577.  
  1578.  
  1579.  Mem_AllocAll();
  1580.  
  1581.  IntuitionBase = (struct Library *)OpenLibrary("intuition.library",37);
  1582.  if (!IntuitionBase)
  1583.   exit(5);
  1584.  GfxBase = (struct Library *)OpenLibrary("graphics.library",37);
  1585.  if (!GfxBase)
  1586.   exit(5);
  1587.  UtilityBase = (struct Library *)OpenLibrary("utility.library",37);
  1588.  if (!UtilityBase)
  1589.   exit(5);
  1590.  
  1591.  /* Lecture des préférences */
  1592.  ReadStringParamIni("DEVICE","serial.device",SerialDevice,"ENV:ClipWatch.prefs");
  1593.  SerialUnit=ReadIntParamIni("UNIT",0,"ENV:ClipWatch.prefs");
  1594.  SerialSpeed=ReadIntParamIni("SPEED",1200,"ENV:ClipWatch.prefs");
  1595.  ReadStringParamIni("INITSTRINGMODEM","",InitStringForModem,"ENV:ClipWatch.prefs");
  1596.  RecupDuJournal=ReadIntParamIni("GETLOG",TRUE,"ENV:ClipWatch.prefs");
  1597.  RecupDesMessages=ReadIntParamIni("GETMSG",TRUE,"ENV:ClipWatch.prefs");
  1598.  RecupDesTraces=ReadIntParamIni("GETTRA",TRUE,"ENV:ClipWatch.prefs");
  1599.  MoniteurActif=ReadIntParamIni("MONITOR",FALSE,"ENV:ClipWatch.prefs");
  1600.  MoniteurMode=ReadIntParamIni("MONITORTYPE",1,"ENV:ClipWatch.prefs");
  1601.  
  1602.  strcpy(Teletrans.SiteName,"");
  1603.  TraceGraph.Horodates=NULL;
  1604.  TraceGraph.Valeurs=NULL;
  1605.  TraceGraph.NbrSamples=0;
  1606.  
  1607.  #ifdef GENERATE_GUI
  1608.  init();
  1609.  if (!(mccgraph = MUI_CreateCustomClass(NULL,MUIC_Area,NULL,sizeof(struct GraphClassData),MyDispatcher)))
  1610.  {
  1611.   printf(NULL,"Could not create custom class.");
  1612.   Mem_FreeAll();
  1613.   exit(30);
  1614.  }
  1615.  App=CreateApp();
  1616.  
  1617.  /* Réglage par défaut pour la visualisation de la trace calé sur la date du jour */
  1618.  /* (j'ai vu le côté exploitation dans une entreprise...) */
  1619.  convert_long_to_asciidate(timenow()-23*3600,tmp,tmp2);
  1620.  set(App->Trace_DateStart,MUIA_String_Contents,tmp);
  1621.  set(App->Trace_TimeStart,MUIA_String_Contents,tmp2);
  1622.  AffiGraphGene.Time32Deb=timenow()-23*3600;
  1623.  convert_long_to_asciidate(timenow()+3600,tmp,tmp2);
  1624.  set(App->Trace_DateEnd,MUIA_String_Contents,tmp);
  1625.  set(App->Trace_TimeEnd,MUIA_String_Contents,tmp2);
  1626.  AffiGraphGene.Time32Fin=timenow()+3600;
  1627.  set(App->GraphTrace,SHOW_GRAPH,&TraceGraph);
  1628.  MiseAJourListeSitesConnus();
  1629.  #endif
  1630.  
  1631.  Serial_OpenAll();
  1632.  
  1633.  
  1634.  do
  1635.  {
  1636.  
  1637.   #ifndef GENERATE_GUI
  1638.  
  1639.   printf("N° de téléphone de la télétrans à appeler:");
  1640.   scanf("%s",Teletrans.NumTel);
  1641.   if (strcmp(Teletrans.NumTel,"x")==0)
  1642.   {
  1643.    Quitter = TRUE;
  1644.   }
  1645.   if (Quitter==FALSE)
  1646.   {
  1647.    printf("Mot de passe:");
  1648.    scanf("%s",Teletrans.Password);
  1649.    if ((SerialInitOk==TRUE)&&(strlen(Teletrans.NumTel)>0))
  1650.    {
  1651.         /* INIT.MODEM WITH INIT.STRING */
  1652.     /* --------------------------- */       
  1653.     DisplayStatus("Init.modem");
  1654.     if (init_modem(InitStringForModem)==FALSE)
  1655.     {
  1656.      ErrorMessageRequest("Init.modem failed");
  1657.     }
  1658.     else
  1659.     {
  1660.      int ResultCall;
  1661.  
  1662.      /* CALLING THE SITE AND ESTABLISHING THE LINE */
  1663.      /* ------------------------------------------ */
  1664.      DisplayStatus("Calling...");
  1665.      call_modem(Teletrans.NumTel,TRUE);
  1666.      do
  1667.      {
  1668.       ResultCall = call_modem(Teletrans.NumTel,FALSE);
  1669.       Delay(50);
  1670.      }
  1671.      while(ResultCall==FALSE);
  1672.      if (ResultCall!=TRUE)
  1673.      {
  1674.       hangup_modem();
  1675.       ErrorMessageRequest("Failed to connect");
  1676.      }
  1677.      else
  1678.      {
  1679.       TeletransOnLine=TRUE;
  1680.       gestion_dialogue(TRUE);
  1681.  
  1682.       do
  1683.       {
  1684.        gestion_dialogue(FALSE);
  1685.        Delay(3);
  1686.       }
  1687.       while(TeletransOnLine);
  1688.      }
  1689.     }
  1690.    }
  1691.    Delay(240);
  1692.    Quitter=TRUE;
  1693.   }
  1694.  
  1695.   #else
  1696.  
  1697.   switch (DoMethod(App->App,MUIM_Application_Input,&signal))
  1698.   {
  1699.    case MUIV_Application_ReturnID_Quit:
  1700.     Quitter = TRUE;
  1701.     break;
  1702.    case ID_MENU_ABOUT:
  1703.     AboutMsg=malloc(4000);
  1704.     if (AboutMsg)
  1705.     {
  1706.      sprintf(AboutMsg,"ClipWatch %s\nDernière révision:%s\n\nOutil pour appeler des télétransmissions Clip/Force (WIT)\n© 1999-2000 Marc Le Douarain\nmavati@club-internet.fr",VERSION,COMPILATION_DATE);
  1707.      MUI_Request(App->App, App->WI_Main, 0, NULL, "OK", AboutMsg);
  1708.      free(AboutMsg);
  1709.     }
  1710.     break;
  1711.    case ID_MENU_ABOUTMUI:
  1712.     if(!WI_AboutMUI)
  1713.     WI_AboutMUI=AboutmuiObject,MUIA_Window_RefWindow,App->WI_Main,MUIA_Aboutmui_Application,App->App,End;
  1714.     if(WI_AboutMUI)
  1715.       set(WI_AboutMUI,MUIA_Window_Open,TRUE);
  1716.     else
  1717.       DisplayBeep(0);
  1718.     break;
  1719.    case ID_PREFS_WINDOWOPENED:
  1720.    {
  1721.     char SpdTmp[50];
  1722.     char tmp[30];
  1723.     set(App->Prefs_InitStringModem,MUIA_String_Contents,InitStringForModem);
  1724.     set(App->Prefs_Device,MUIA_String_Contents,SerialDevice);
  1725.     sprintf(tmp,"%d",SerialUnit);
  1726.     set(App->Prefs_Unit,MUIA_String_Contents,tmp);
  1727.     sprintf(SpdTmp,"%d",SerialSpeed);
  1728.     set(App->Prefs_Vitesse,MUIA_Cycle_Active,GetMUICycleToSet(App->Prefs_VitesseContent,SpdTmp));
  1729.     set(App->Prefs_RecupJournal,MUIA_Selected,RecupDuJournal);
  1730.     set(App->Prefs_RecupMessages,MUIA_Selected,RecupDesMessages);
  1731.     set(App->Prefs_RecupTraces,MUIA_Selected,RecupDesTraces);
  1732.     set(App->Prefs_Monitor,MUIA_Selected,MoniteurActif);
  1733.     set(App->Prefs_Monitor_Type,MUIA_Cycle_Active,MoniteurMode-1);
  1734.     break;
  1735.    }
  1736.    case ID_PREFS_TOSAVE:
  1737.     /* Sauvegarde des préférences sur le disque dur */
  1738.      system("copy ENV:ClipWatch.prefs ENVARC:ClipWatch.prefs");
  1739.      break;
  1740.    case ID_PREFS_CHANGED:
  1741.    {
  1742.     long numcyc;
  1743.     char * txt;
  1744.     get(App->Prefs_InitStringModem,MUIA_String_Contents,&txt);
  1745.     strcpy(InitStringForModem,txt);
  1746.     get(App->Prefs_Device,MUIA_String_Contents,&txt);
  1747.     strcpy(SerialDevice,txt);
  1748.     get(App->Prefs_Unit,MUIA_String_Contents,&txt);
  1749.     SerialUnit=atoi(txt);
  1750.     get(App->Prefs_Vitesse,MUIA_Cycle_Active,&numcyc);
  1751.     SerialSpeed=atoi(GetMUICycleString(App->Prefs_VitesseContent,numcyc));
  1752.     get(App->Prefs_RecupJournal,MUIA_Selected,&RecupDuJournal);
  1753.     get(App->Prefs_RecupMessages,MUIA_Selected,&RecupDesMessages);
  1754.     get(App->Prefs_RecupTraces,MUIA_Selected,&RecupDesTraces);
  1755.     get(App->Prefs_Monitor,MUIA_Selected,&MoniteurActif);
  1756.     get(App->Prefs_Monitor_Type,MUIA_Cycle_Active,&MoniteurMode);
  1757.     MoniteurMode++;
  1758.     /* Sauvegarde des préférences en RAM */
  1759.     WriteStringParamIni("DEVICE",SerialDevice,"ENV:ClipWatch.prefs");
  1760.     WriteIntParamIni("UNIT",SerialUnit,"ENV:ClipWatch.prefs");
  1761.     WriteIntParamIni("SPEED",SerialSpeed,"ENV:ClipWatch.prefs");
  1762.     WriteStringParamIni("INITSTRINGMODEM",InitStringForModem,"ENV:ClipWatch.prefs");
  1763.     WriteIntParamIni("GETLOG",RecupDuJournal,"ENV:ClipWatch.prefs");
  1764.     WriteIntParamIni("GETMSG",RecupDesMessages,"ENV:ClipWatch.prefs");
  1765.     WriteIntParamIni("GETTRA",RecupDesTraces,"ENV:ClipWatch.prefs");
  1766.     WriteIntParamIni("MONITOR",MoniteurActif,"ENV:ClipWatch.prefs");
  1767.     WriteIntParamIni("MONITORTYPE",MoniteurMode,"ENV:ClipWatch.prefs");
  1768.     break;
  1769.    }
  1770.    case ID_MENU_PREFSMUI:
  1771.     DoMethod(App->App,MUIM_Application_OpenConfigWindow,0);
  1772.     break;
  1773.    case ID_SAVED_SITE_SELECTED:
  1774.     set(App->WI_SelectSite,MUIA_Window_Sleep,TRUE);
  1775.     ChoixSiteConnu();
  1776.     set(App->WI_SelectSite,MUIA_Window_Sleep,FALSE);
  1777.     break;
  1778.    case ID_BUTTON_DISCONNECT:
  1779.     if ((TeletransOnLine)||(TeletransOnCall))
  1780.     {
  1781.      DisplayStatus("Raccroche...");
  1782.      hangup_modem();
  1783.      TeletransOnLine=FALSE;
  1784.      TeletransOnCall=FALSE;
  1785.      SignalConnexion=FALSE;
  1786.      strcpy(TimeOfCnxString,"--:--");
  1787.      set(App->ComTime,MUIA_Text_Contents,TimeOfCnxString);
  1788.      DisplayStatus("Prêt...");
  1789.      set(App->SelectSiteSaved,MUIA_Disabled,FALSE);
  1790.     }
  1791.     break;
  1792.    case ID_BUTTON_CONNECT:
  1793.     get(App->NumTelephone,MUIA_String_Contents,&StrContents);
  1794.     strcpy(Teletrans.NumTel,StrContents);
  1795.     get(App->Password,MUIA_String_Contents,&StrContents);
  1796.     strcpy(Teletrans.Password,StrContents);
  1797.     if ((SerialInitOk==TRUE)&&(strlen(Teletrans.NumTel)>0)&&(strlen(Teletrans.Password)>0))
  1798.     {
  1799.      /* INIT.MODEM WITH INIT.STRING - bloquant */
  1800.      DisplayStatus("Init.modem");
  1801.      if (init_modem(InitStringForModem)==FALSE)
  1802.      {
  1803.       ErrorMessageRequest("Echec Init.modem");
  1804.      }
  1805.      else
  1806.      {
  1807.       /* CALLING THE SITE AND ESTABLISHING THE LINE - non bloquant */
  1808.       DisplayStatus("Appel...");
  1809.       TeletransOnCall=TRUE;
  1810.       call_modem(Teletrans.NumTel,TRUE);
  1811.      }
  1812.     }
  1813.     else
  1814.     {
  1815.      ErrorMessageRequest("Numéro de téléphone/Mot de passe incorrects!!!");
  1816.     }
  1817.     break;
  1818.    case ID_TRACE_REFRESH:
  1819.    {
  1820.     refresh_trace_wanted(0,NULL); // Refresh de la trace sélectionnée
  1821.     break;
  1822.    }
  1823.    case ID_TRACE_START:
  1824.    {
  1825.     refresh_trace_wanted(0,ID_TRACE_START); // Refresh de la trace sélectionnée
  1826.     break;
  1827.    }
  1828.    case ID_TRACE_END:
  1829.    {
  1830.     refresh_trace_wanted(0,ID_TRACE_END); // Refresh de la trace sélectionnée
  1831.     break;
  1832.    }
  1833.    case ID_TRACE_RANGEDOWN:
  1834.    {
  1835.     refresh_trace_wanted(0,ID_TRACE_RANGEDOWN); // Refresh de la trace sélectionnée
  1836.     break;
  1837.    }
  1838.    case ID_TRACE_RANGEUP:
  1839.    {
  1840.     refresh_trace_wanted(0,ID_TRACE_RANGEUP); // Refresh de la trace sélectionnée
  1841.     break;
  1842.    }
  1843.    case ID_TRACE_NEWRANGE:
  1844.    {
  1845.     refresh_trace_wanted(0,ID_TRACE_NEWRANGE); // Refresh de la trace sélectionnée
  1846.     break;
  1847.    }
  1848.   }
  1849.   /* Gestion communication en cours */
  1850.   if (TeletransOnLine)
  1851.   {
  1852.    gestion_dialogue(FALSE);
  1853.    /* Le petit compteur du temps */
  1854.    TimeOfCnx=get_timer_secs()-StartTimeOfCnx;
  1855.    if (TimeOfCnx!=TimeOfCnx_bak)
  1856.    {
  1857.     sprintf(TimeOfCnxString,"%d:%2d",TimeOfCnx/60,TimeOfCnx%60);
  1858.     set(App->ComTime,MUIA_Text_Contents,TimeOfCnxString);
  1859.     TimeOfCnx_bak=TimeOfCnx;
  1860.    }
  1861.    if (!SignalConnexion)
  1862.     set(App->SelectSiteSaved,MUIA_Disabled,TRUE);
  1863.    SignalConnexion=TRUE;
  1864.   }
  1865.   /* On vient de se déconnecter suite à des erreurs... */
  1866.   if ( (TeletransOnLine==FALSE) && (SignalConnexion==TRUE) )
  1867.   {
  1868.    ErrorMessageRequest("Perte de connexion avec le site...");
  1869.    strcpy(TimeOfCnxString,"--:--");
  1870.    set(App->ComTime,MUIA_Text_Contents,TimeOfCnxString);
  1871.    DisplayStatus("Prêt...");
  1872.    set(App->SelectSiteSaved,MUIA_Disabled,FALSE);
  1873.    SignalConnexion=FALSE;
  1874.   }
  1875.   /* Gestion de l'appel en cours */
  1876.   if (TeletransOnCall)
  1877.   {
  1878.    Result=call_modem(Teletrans.NumTel,FALSE);
  1879.    if ( (Result!=FALSE) && (Result!=TRUE) )
  1880.    {
  1881.     hangup_modem();
  1882.     if (Result==3)
  1883.      ErrorMessageRequest("Ligne téléphonique du site occupée");
  1884.     else
  1885.      ErrorMessageRequest("Echec à l'appel");
  1886.     TeletransOnCall=FALSE;
  1887.    }
  1888.    if (Result==TRUE)
  1889.    {
  1890.     TeletransOnCall=FALSE;
  1891.     TeletransOnLine=TRUE;
  1892.     StartTimeOfCnx=get_timer_secs();
  1893.     gestion_dialogue(TRUE);
  1894.    }
  1895.   }
  1896. //  if (!(Quitter) && signal)
  1897. //    Wait(signal);
  1898.   Delay(3);
  1899.  
  1900.   #endif
  1901.  
  1902.  }
  1903.  while(Quitter==FALSE);
  1904.  Appli_CloseAll();
  1905.  #ifdef GENERATE_GUI
  1906.  if (App)
  1907.  {
  1908.   DisposeApp(App);
  1909.   MUI_DeleteCustomClass(mccgraph);
  1910.   CloseLibrary(MUIMasterBase);
  1911.  }
  1912.  
  1913.  #endif
  1914.  
  1915.  if (!IntuitionBase)
  1916.   CloseLibrary(IntuitionBase);
  1917.  if (!GfxBase)
  1918.   CloseLibrary(GfxBase);
  1919.  if (!UtilityBase)
  1920.   CloseLibrary(UtilityBase);
  1921.  Mem_FreeAll();
  1922.  free_trace(&TraceGraph.Horodates,&TraceGraph.Valeurs);
  1923.  exit(0);
  1924. }
  1925.